home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Directorty Opus 5 - Magellan 2
/
Opus 5 - Magellan 2.iso
/
Archiv
/
DirOpusCompare.lha
/
DirOpusCompare
/
dopuscmp.rexx
< prev
Wrap
OS/2 REXX Batch file
|
1992-08-08
|
545b
|
34 lines
/* */
address 'DOPUS.1'
options results
status 3
Window = result
status 13 window /* dir name */
FirstFileDir = result
getnextselected
FirstFileName = result
selectfile FirstFileName 0
displaydir
otherwindow
status 13 1-window /* dir name */
SecondFileDir = result
getnextselected
SecondFileName = result
selectfile SecondFileName 0
displaydir
otherwindow
ExecuteString = 'M_C:cmp >"con:20/0/600/100/Compare/WAIT/CLOSE/SCREEN DOPUS.1"'||FirstFileDir||FirstFileName||' '||SecondFileDir||SecondFileName
address command ExecuteString